www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/admin_login.asp
<!--#include file=conn.asp--> <!--#include file=config.asp--> <!--#include file=const.asp--> <!--#include file=char.asp--> <!--#include file=inc/Ms_admin.asp--> <!--#include file=Md5.asp--> <% '========================================================= ' File: admin_loginx.asp ' Version:3.0 ' Date: 2005-9-17 ' Script Written by xmrxw '========================================================= ' Copyright (C) 2004,2005 920520.com All rights reserved. ' Web: http://www.920520.com,http://www.xmzxw.com ' Email: info@mssky.com,super@mssky.com ' QQ:10689579 Msn:zdlmicr@hotmail.com '========================================================= response.buffer=true stats="管理登录" call Admin_Login()''后台登录 if founderr=true then call Mslove_error() end if Sub Admin_Login() If (UserGroupID>1 and UserID>0) or Master or UserID>0 Then Master = True Else Master = False End If If Not Master Then Response.write "您不是系统管理员!" If Master And Session("flag")<>"" Then Response.Redirect ""&Adminpath&"index.asp" If Request("action")="chklogin" Then Chk_Login() Else Login_Main() End If End Sub sub Login_Main() Dim version If IsSqlDataBase = 1 Then version="SQL 版" Else version=""%> <style type=text/css> body { background:#CAD7F7; font-size: 12px; margin-top:0px; SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #799AE1; SCROLLBAR-SHADOW-COLOR: #799AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1; SCROLLBAR-3DLIGHT-COLOR: #799AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF; SCROLLBAR-TRACK-COLOR: #AABFEC; } TD { FONT-SIZE: 12px } INPUT { BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px } TD.forumHeaderBackgroundAlternate { BACKGROUND-IMAGE: url(images/manage/admin_top_bg.gif); COLOR: #000000; BACKGROUND-COLOR: #799ae1 } TD.forumRow { PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #F1F3F5; PADDING-BOTTOM: 3px; PADDING-TOP: 3px } TH { FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(images/manage/admin_bg_1.gif); COLOR: white; BACKGROUND-COLOR: #4455aa } TD.forumRowHighlight { PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #E4EDF9; PADDING-BOTTOM: 3px; PADDING-TOP: 3px } </style> <p> </p> <p> </p> <table cellpadding="1" cellspacing="0" border="0" align=center style="border: outset 3px;width:0;"> <form action="?action=chklogin" method="post"> <tr> <td> <table style="width:500" border=0 cellspacing=0 cellpadding=3 align=center class=tablefoot> <tr><th valign=middle colspan=2 height=25><%=webname%>管理登录</th></tr> </table> <table style="width:500" border=0 cellspacing=0 cellpadding=3 align=center class=tablefoot> <tr> <td valign=middle colspan=2 align=center class=forumRowHighlight style="background-image: url(images/admin_loginbg.gif);" height="75"> <table border="0" width="100%" height="100%"> <tr> <td width="61%" height="100%" rowspan="3"></td> <td width="39%" height="0"></td> </tr> <tr> <td height="" valign=top><BR><a href="index.asp"><b><%=webname%></b></a><br>版本:Mslove v3.0 <%If UserID>0 Then Response.Write Version%><br> 注册:<%=UpcodeID%></td> </tr> <tr><td height=""></td></tr> </table> </td> </tr> </table> <table style="width:500" border=0 cellspacing=0 cellpadding=3 align=center> <tr> <td valign=middle colspan=2 align=center class=forumRowHighlight height=4></td> </tr> <%If UserID=0 Or UserGroupID>1 Then%> <tr> <td valign=middle class=forumRow width="30%" align=right><b>前台用户名:</b></td> <td valign=middle class=forumRow><Input name=adduser type=text value=""></td></tr> <tr> <td valign=middle class=forumRow align=right><b>前台密码:</b></font></td> <td valign=middle class=forumRow><Input name=password2 type=password></td></tr> <%End If%> <tr> <td valign=middle class=forumRow width="30%" align=right><b>用户名:</b></td> <td valign=middle class=forumRow><Input name=username type=text></td></tr> <tr> <td valign=middle class=forumRow align=right><b>密 码:</b></font></td> <td valign=middle class=forumRow><Input name=password type=password></td></tr> <tr> <td valign=middle class=forumRow align=right><b>附加码:</b></td> <td valign=middle class=forumRow><input type="text" name="codestr" maxlength="4" size="4"> 请输入 <img src="Getcode.asp"></td> </tr> <tr> <td valign=middle colspan=2 align=center class=forumRowHighlight><input class=button type=submit name=submit value="登 录"></td> </tr> </table> </td> </tr> </form> </table> </body> </html> <%End Sub sub Chk_Login() Dim ip Dim UserName Dim PassWord UserName=checkStr(Request("username")) PassWord=md5(request("password"),16) If Request("codestr")="" Then errmsg=errmsg+"<br>"+"<li>请返回输入确认码。<b>返回后请刷新登录页面后重新输入正确的信息。</b>" FoundErr=True Elseif Session("getcode")="9999" then Session("getcode")="" Elseif Session("getcode")="" then errmsg=errmsg+"<br>"+"<li>请不要重复提交,如需重新登录请返回登录页面。<b>返回后请刷新登录页面后重新输入正确的信息。</b>" FoundErr=True ElseIf Cstr(Session("getcode"))<>Cstr(Trim(Request("codestr"))) Then errmsg=errmsg+"<br>"+"<li>您输入的确认码和系统产生的不一致,请重新输入。<b>返回后请刷新登录页面后重新输入正确的信息。</b>" FoundErr=True End If Session("getcode")="" if UserName="" Or PassWord="" Then errmsg=errmsg+"<br>"+"<li>请输入您的用户名或密码。<b>返回后请刷新登录页面后重新输入正确的信息。</b>" FoundErr=True End If ip=UserTrueIP If MemberName="" Or Request("adduser") <>"" Then MemberName=Checkstr(Request("adduser")) Else MemberName=MemberName End If if FoundErr=True then exit sub Set Rs=Conn.Execute("Select a.*,u.UserPassword,u.UserGroupID From "&Admintable&" a Inner Join Ms_User u On a.AddUser=u.UserName Where a.UserName='"&username&"' And a.AddUser='"&MemberName&"'") If Rs.Eof and Rs.Bof Then Rs.Close Set Rs=Nothing errmsg=errmsg+"<br>"+"<li>您输入的用户名和密码不正确或者您不是系统管理员。请<a href=admin_login.asp>重新输入</a>您的密码。<b>返回后请刷新登录页面后重新输入正确的信息。</b>" FoundErr=True Exit Sub else If Rs("AcceptIP")<>"" And ChkIPLogin=1 Then If ChkLoginIP(Rs("AcceptIP"),ip)=False Then errmsg=errmsg+"<br>"+"<li>你不是合法的后台管理员。请<a href=admin_login.asp>重新输入</a>您的密码。" FoundErr=True Exit Sub End If End If If Trim(Rs("password"))<>PassWord then errmsg=errmsg+"<br>"+"<li>您输入的用户名和密码不正确或者您不是系统管理员。请<a href=admin_login.asp>重新输入</a>您的密码。<b>返回后请刷新登录页面后重新输入正确的信息。</b>" FoundErr=True Exit Sub Else If MemberName="" Or Request("adduser") <>"" Then If Trim(Rs("userpassword"))<>md5(Request("password2"),16) Then errmsg=errmsg+"<br>"+"<li>您输入的用户名和密码不正确或者您不是系统管理员。请<a href=admin_login.asp>重新输入</a>您的密码。<b>返回后请刷新登录页面后重新输入正确的信息。</b>" FoundErr=True Exit Sub End If End If end if Conn.Execute("Update "&admintable&" Set LastLogin="&SqlNowString&",LastLoginIP='"&ip&"' Where UserName='"&UserName&"'") Session("flag")=Rs("flag") Session.Timeout=45 Session("MemberName")=MemberName Response.Redirect ""&Adminpath&"index.asp" Rs.Close Set Rs=Nothing end if end sub Function ChkLoginIP(AcceptIP,ChkIp) Dim i,LoginIP,TempIP ChkLoginIP = False If Instr("|"&AcceptIP&"|","|"&ChkIp&"|") Then ChkLoginIP = True : Exit Function LoginIP = Split(ChkIp,".") TempIP = LoginIP(0)&"."&LoginIP(1)&"."&LoginIP(2)&".*" If Instr("|"&AcceptIP&"|","|"&TempIP&"|") Then ChkLoginIP = True : Exit Function TempIP = LoginIP(0)&"."&LoginIP(1)&".*.*" If Instr("|"&AcceptIP&"|","|"&TempIP&"|") Then ChkLoginIP = True : Exit Function TempIP = LoginIP(0)&".*.*.*" If Instr("|"&AcceptIP&"|","|"&TempIP&"|") Then ChkLoginIP = True : Exit Function End Function%>